home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / database / table.lib < prev    next >
Text File  |  1991-01-25  |  1KB  |  28 lines
  1. @Marker(Library,Table,Dover,Postscript)
  2.  
  3. @Comment{New library definitions for tables.}
  4.  
  5. @Style(StringMax=10000)
  6. @Modify(Table, Spacing 1)
  7.  
  8. @Define(Liner, underline all, tabexport off, script -1pt,
  9.     rightmargin +1pts, leftmargin +2pts)
  10. @Define(up6, script +6pts)
  11.  
  12. @textform(VB={@string(NID = "@parm(text)")@case(NID,
  13.     1 "@hsp(1pt)@ovp[|]@up6[|]",
  14.     2 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  15.     3 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  16.     4 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  17.     5 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  18.     6 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  19.     7 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
  20.     else "@hsp(1pt)@ovp[|]@up6[|]")})
  21.  
  22. @Form(TLine="@enter(Liner, script @parm<height, default=[+3pts]>)@~
  23.     @tabclear()@&@ @\@leave(Liner)")
  24. @TextForm(BLine="@ovp<@Liner(@tabclear()@&@ @\)>@VB(@parm(text))")
  25. @TextForm(TL="@hsp(1)@parm(text)@>@ovp[|]@up6[|]@\")
  26. @TextForm(TC="@=@parm(text)@>@ovp[|]@up6[|]@\")
  27. @TextForm(TR="@>@parm(text)@hsp(1)@ovp[|]@up6[|]@\")
  28.